home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)th.d64 / bowling ledger.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  9KB  |  286 lines
  1. 20 ZZ$="*** CAT BOWL LEDGER ***"
  2. 22 POKE53281,0:POKE53280,13:PRINT"[147]"
  3. 34 PRINT"                                    "
  4. 36 PRINT"  CATALYTIC BOWLING LEAGUE LEDGER   "
  5. 38 PRINT"                                    "
  6. 40 PRINT"S E L E C T  T R A N S A C T I O N"
  7. 42 PRINTSPC(169)"[213][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  8. 44 FORX=1TO9:PRINTSPC(9)"[221][221]"SPC(16)"[221]":NEXT
  9. 46 PRINTSPC(9)"[202][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  10. 48 POKE214,10:PRINT:PRINT"":FORX=1TO9:PRINTTAB(10)X:NEXT
  11. 50 POKE214,11:PRINT:PRINT""TAB(13)" BANK DEPOSIT   ":PRINTTAB(13)" WRITE CHECKS   "
  12. 52 PRINTTAB(13)" ADJUSTMENTS    ":PRINTTAB(13)" LEDGER ENTERY  "
  13. 54 PRINTTAB(13)" VIEW LEDGER    ":PRINTTAB(13)" VIEW BALANCE   "
  14. 56 PRINTTAB(13)"[158] QUIT           ":PRINTTAB(13)" FORMAT DISK    "
  15. 58 PRINTTAB(13)" CAN LAST ENTRY "
  16. 60 GETY$:IFY$<"1"ORY$>"9"THEN60
  17. 62 Y=VAL(Y$):GOSUB198:ONYGOTO182,214,230,244,256,408,442,462,534
  18. 64 PRINT"[147]"ZZ$
  19. 66 PRINTSPC(51)"               "
  20. 68 PRINTSPC(11)HA$
  21. 70 PRINTSPC(11)"               ":RETURN
  22. 72 PRINTSPC(88)"[155][213][192][192][192][201][157][157][157][157]   [157][157][157][157][202][192][192][192][203]"
  23. 74 PRINTSPC(8)"[213][192][192][201][157][157][157]  [157][157][157][202][192][192][203]"
  24. 76 PRINTSPC(8)"[213][192][192][192][192][192][192][201][157][157][157][157][157][157][157]      [157][157][157][157][157][157][157][202][192][192][192][192][192][192][203]":IFPZ=1THENRETURN
  25. 78 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  26. 80 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":RETURN
  27. 82 INPUT"";MO$:MO$=LEFT$(MO$,3)
  28. 84 IFLEFT$(MO$,1)="\"THEN180
  29. 86 V=1:FORX=1TO12:READMV$:IFMO$=MV$THENV=0
  30. 88 DATAJAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC
  31. 90 NEXT:RESTORE:IFVTHENMO$="":GOSUB206:GOTO82
  32. 92 GOSUB198
  33. 94 INPUT"";DA$:IFLEFT$(DA$,1)="\"THEN180
  34. 96 DA=VAL(DA$):IFLEN(DA$)<>2ORDA<1ORDA>31THENDA$="":GOSUB206:GOTO94
  35. 98 GOSUB198
  36. 100 INPUT"";AM$:IFLEFT$(AM$,1)="\"THEN180
  37. 102 IFLEN(AM$)<3THENAM$="":GOSUB206:GOTO100
  38. 104 AV$=RIGHT$(AM$,3):IFLEFT$(AV$,1)<>"."THENAM$="":GOSUB206:GOTO100
  39. 106 GOSUB198
  40. 108 RETURN
  41. 110 POKE214,17:PRINT:PRINT"";
  42. 112 DE$=""
  43. 114 GETM$:IFM$=""THEN114
  44. 116 IFM$=CHR$(20)THENX1=1:GOTO124
  45. 118 IFLEN(DE$)>39THENX1=0:GOTO124
  46. 120 IFM$=CHR$(13)THENGOSUB198:GOTO132
  47. 122 PRINTM$;:DE$=DE$+M$:GOTO114
  48. 124 DE$="":FORX=0TO39:POKE1784+X,32:POKE56056+X,1:NEXTX:M$="":IFX1=1THEN110
  49. 126 POKE214,17:PRINT:PRINT"MAX DESCRIPTION LENGTH 40 CHARACTERS[144]":GOSUB206
  50. 128 FORI=1TO500:NEXT
  51. 130 FORX=0TO39:POKE1784+X,32:POKE56056+X,1:NEXTX:M$="":GOTO110
  52. 132 IFLEFT$(DE$,1)="\"THEN180
  53. 134 IFDE$=""THENDE$="*** NO DESCRIPTION ENTERED ***"
  54. 136 PRINT:PRINTSPC(47)"READY TO RECORD ? Y/N"
  55. 138 GETM$:IFM$=""THEN138
  56. 140 GOSUB198
  57. 142 IFM$="Y"THEN146
  58. 144 GOTO180
  59. 146 POKE214,23:PRINT:PRINTSPC(12)"[144] PLEASE WAIT [146]":RETURN
  60. 148 OPEN2,8,2,"0:ENC,S,R":INPUT#2,EN$:CLOSE2:RETURN
  61. 150 GOSUB174
  62. 152 EN=VAL(EN$):IFEN<110THEN160
  63. 154 PRINT"[147]"SPC(47)"<*> DATA DISK FULL [146]<*>"
  64. 156 PRINT"INSERT A NEW DISK FOR FORMATING"
  65. 158 FORI=1TO3000:NEXT:RUN
  66. 160 RETURN
  67. 162 OPEN3,8,3,"@0:BAL,S,W":PRINT#3,BA$:CLOSE3:RETURN
  68. 164 OB$="EN# "+EN$:OPEN4,8,4,"0:"+OB$+",S,W"
  69. 166 PRINT#4,CK$:PRINT#4,MO$:PRINT#4,DA$:PRINT#4,DE$:PRINT#4,BA$:PRINT#4,AM$
  70. 168 PRINT#4,LA$:CLOSE4:GOSUB170:GOTO180
  71. 170 EN=EN+1:EN$=STR$(EN):OPEN2,8,2,"@0:ENC,S,W":PRINT#2,EN$:CLOSE2:RETURN
  72. 172 OPEN4,8,4,"0:"+HE$+",S,R":INPUT#4,CK$,MO$,DA$,DE$,BA$,AM$,LA$:CLOSE4:RETURN
  73. 174 OPEN3,8,3,"0:BAL,S,R":INPUT#3,BA$:CLOSE3:RETURN
  74. 176 PRINT"[151]MONTH:":PRINT"DAY:":PRINT"AMOUNT:":PRINT"DESCRIPTION
  75. 178 BA[178][197](BA$):AM[178][197](AM$):LA[178][197](LA$):[142]
  76. 180 CK$[178]"":LA$[178]"":MO$[178]"":DE$[178]"":AM$[178]"":[137]20
  77. 182 [143]*******DEPOSIT*********
  78. 184 [151]53281,1:[151]53280,15
  79. 186 [153]"":HA$[178]" BANK  DEPOSIT ":[141]64:[141]72
  80. 188 [141]176
  81. 190 [141]148:[141]150:[153]""[163]27)"ENTRY#STOP"EN
  82. 192 [141]82:[141]110
  83. 194 CK$[178]"DEP":LA$[178]"00.00"
  84. 196 [141]178:BA[178]BA[170]AM:BA$[178][196](BA):[141]162:[137]164
  85. 198 [143]*******BELL************
  86. 200 [151]54296,15:[151]54277,0:[151]54278,247
  87. 202 [151]54276,17:[151]54273,40:[151]54272,0
  88. 204 [129]X[178]1[164]100:[130]:[151]54276,16:[142]
  89. 206 [143]*******BUZZER**********
  90. 208 [151]54296,15:[151]54277,45:[151]54278,165
  91. 210 [151]54276,33:[151]54273,6:[151]54272,5
  92. 212 [129]X[178]1[164]200:[130]:[151]54276,32:[151]54273,0:[151]54272,0:[142]
  93. 214 [143]*******CHECK***********
  94. 216 [151]53281,1:[151]53280,15
  95. 218 [153]"OPEN":HA$[178]"  CHECK ENTRY  ":[141]64:[141]72:[141]176:[141]148:[141]150
  96. 220 [153]""[163]27)"OPENENTRY#STOP"EN
  97. 222 [153][166]94)"CHECK #ONLIST(null)TANTANTANRIGHT$CMDCMDCMDCMDCMDMID$TANTANTAN(null)STOP"
  98. 224 [133]"";CK$:[139][195](CK$)[177]3[167][141]206:[137]180
  99. 226 [141]198:[141]82:[141]110
  100. 228 LA$[178]"00.00":[141]178:BA[178]BA[171]AM:BA$[178][196](BA):[141]162:[137]164
  101. 230 [143]*******ADJUSTMENTS*****
  102. 232 [151]53281,1:[151]53280,15
  103. 234 [153]"DEF":HA$[178]"  ADJUSTMENTS  ":[141]64:[141]72:[141]176:[141]148:[141]150
  104. 236 [153]""[163]27)"DEFENTRY#STOP"EN
  105. 238 [153]"+OR-"
  106. 240 [141]198:[141]82:[141]110
  107. 242 LA$[178]"00.00":CK$[178]"ADJ":[141]178:BA[178]BA[170]AM:BA$[178][196](BA):[141]162:[137]164
  108. 244 [143]*******LEDGER**********
  109. 246 [151]53281,1:[151]53280,15
  110. 248 [153]"CONT":HA$[178]" LEDGER  ENTRY ":[141]64:[141]72:[141]176:[141]148:[141]150
  111. 250 [153]""[163]27)"CONTENTRY#STOP"EN
  112. 252 [141]198:[141]82:[141]110
  113. 254 LA$[178]AM$:AM$[178]"00.00":CK$[178]"LED":[141]178:[141]162:[137]164
  114. 256 [143]*******VIEW LEDGER*****
  115. 258 [151]53280,15:[151]53281,1
  116. 260 [153]"":HA$[178]"  VIEW LEDGER  ":[141]64
  117. 262 [153]"":HA$[178]" PLEASE SELECT ":[141]66
  118. 264 [153][166]86)"POKE(null)TANRIGHT$"
  119. 266 [153][166]6)"(null)S(null)CREEN"
  120. 268 [153][166]6)"MID$TAN(null)"
  121. 270 [153][163]17)"- OR -"
  122. 272 [153][163]25)"(null)TANRIGHT$"
  123. 274 [153][163]25)"(null)P(null)RINTER"
  124. 276 [153][163]25)"MID$TAN(null)"
  125. 278 [161]M$:[139]M$[179][177]"S"[175]M$[179][177]"P"[167]278
  126. 280 [139]M$[178]"P"[167]360
  127. 282 [139]M$[178]"S"[167]286
  128. 284 [137]180
  129. 286 [153]"LOAD"[166]86)"                           "
  130. 288 [153][166]6)" SELECT FILE SEQUENCE MODE "
  131. 290 [153][166]6)"                           POKE"
  132. 292 [153][166]85)"(null)TANRIGHT$"
  133. 294 [153]"(null)A(null)LL"
  134. 296 [153]"MID$TAN(null)"
  135. 298 [153][163]15)"-OR-"
  136. 300 [153][163]20)"(null)TANRIGHT$"
  137. 302 [153][163]20)"(null)R(null)ECENT"
  138. 304 [153][163]20)"MID$TAN(null)"
  139. 306 [161]M$:[139]M$[178]""[167]306
  140. 308 [139]M$[178]"A"[167]314
  141. 310 [139]M$[178]"R"[167]342
  142. 312 [137]306
  143. 314 [151]53281,0:[151]53280,0:[153]"LOAD":EN[178]1:L$[178]"":[129]I[178]1[164]40:L$[178]L$[170]"USR":[130]
  144. 316 L$[178]L$[170]"ON":[141]148:LI[178][197](EN$)
  145. 318 HB$[178][196](EN):HE$[178]"EN#"[170]HB$:[141]172:[153]"ON";:[141]320:[137]328
  146. 320 [153]"ONENTRY#"EN
  147. 322 [153]"SYS"CK$:[153][163]4)"ONCLR"MO$:[153][163]7)"ONOPEN"DA$:[153][163]12)"ON$"BA$
  148. 324 [153][163]21)"ONDEF$"AM$:[153][163]30)"ON$"LA$
  149. 326 [153]""DE$;"":[153]L$:[142]
  150. 328 EN[178]EN[170]1:[139]EN[173]4[178][181](EN[173]4)[167]334
  151. 330 [153]"ONON":[139]EN[179]LI[167]318
  152. 332 [139]EN[177]LI[171]1[167][151]214,21:[153]:[153]" END OF RECORDS  ":[137]334
  153. 334 [151]214,22:[153]:[153]" PRESS SPACE BAR "
  154. 336 [161]I$:[139]I$[178]""[167]336
  155. 338 [139]EN[177]LI[171]1[167]180
  156. 340 [153]"LOAD":[137]318
  157. 342 [151]53280,0:[151]53281,0
  158. 344 [153]"LOAD":[141]148:EN[178][197](EN$)[171]1
  159. 346 [153]"LOAD":HE$[178]"EN#"[170][196](EN):[141]172:[141]320
  160. 348 [153]"CONT PRESS RETURN TO SEE EARLIER ENTRY "
  161. 350 [153]"OPEN PRESS SPACEBAR TO RETURN TO MENU  "
  162. 352 [161]I$:[139]I$[178]""[167]352
  163. 354 [139]I$[179][177][199](13)[167]180
  164. 356 EN[178]EN[171]1:[139]EN[179]1[167]180
  165. 358 [137]346
  166. 360 [143]*******PRINTER********
  167. 362 EN[178]0:Y[178]0:[141]148:LI[178][197](EN$)[171]1:V[178]0
  168. 364 [159]4,4:[157]4
  169. 366 [139]Y[167]384
  170. 368 [152]4,[199](14)"       CATALYTIC BOWLING LEAGUE"
  171. 370 [152]4,[199](16)"19 FINANCIAL REPORT"
  172. 372 [152]4,[199](16)"251984 - 1985 "
  173. 374 [152]4,[199](15)
  174. 376 [152]4,[199](16)"64TRANSACTIONS"
  175. 378 [152]4,"CK#   DATE   DESCRIPTION:                            BALANCE";
  176. 380 [152]4,[199](16)"63BANK     LEDGER"
  177. 382 [129]X[178]1[164]80:[152]4,".";:[130]:Y[178]1:[137]394
  178. 384 [152]4,CK$;:[152]4,[199](16)"05"MO$" "DA$"  "DE$[199](16)"52$"BA$;
  179. 386 [139]CK$[179]"0"[176]CK$[177]"999"[167]392
  180. 388 [152]4,[199](18)[199](16)"63$"AM$[199](146)[199](16)"72$"LA$
  181. 390 [137]394
  182. 392 [152]4,[199](16)"63$"AM$[199](16)"72$"LA$
  183. 394 EN[178]EN[170]1
  184. 396 [139]EN[177]LI[167][141]400:[129]X[178]0[164]4:[152]4,[199](10):[130]:[160]4:[137]180
  185. 398 [160]4:HB$[178][196](EN):HE$[178]"EN#"[170]HB$:[141]172:V[178]V[170]1:[139]V[179]26[167]:[137]364
  186. 399 [159]4,4:[157]4:[141]400:[129]X[178]1[164]6:[152]4:[130]:Y[178]0:V[178]0:[160]4:[137]364
  187. 400 [129]X[178]1[164]80:[152]4,".";:[130]
  188. 402 [152]4
  189. 404 [152]4,"                 DEP = DEPOSIT   LED = LEDGER   ADJ = ADJUSTMENTS"
  190. 406 [142]
  191. 408 [143]******BALANCE********
  192. 410 [151]53280,15:[151]53281,1
  193. 412 [151]53281,1:[153]"LOAD"[166]131)"READ  BALANCE"
  194. 414 [153][166]11)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  195. 416 [153][166]210)"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
  196. 418 [129]X[178]1[164]3:[153][166]10)"(null)"[166]13)"(null)":[130]
  197. 420 [153][166]10)"MID$TANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
  198. 422 [153]"ONONON"[166]11)"$"
  199. 424 [153][166]221)"PLEASE WAIT....."
  200. 426 [141]174
  201. 428 LH$[178][201](BA$,3)
  202. 430 [139][202](LH$,2,1)[179][177]"."[175][202](LH$,1,1)[179][177]"."[167]BA$[178]BA$[170]".00":[137]434
  203. 432 [139][202](LH$,2,1)[178]"."[167]BA$[178]BA$[170]"0"
  204. 434 [151]214,11:[153]:[153][166]13)BA$
  205. 436 [151]214,20:[153]:[153][166]7)"PRESS SPACEBAR TO CONTINUEWAIT     "
  206. 438 [161]M$:[139]M$[178]""[167]438
  207. 440 [141]198:[137]180
  208. 442 [143]******QUIT*********
  209. 444 [153]"LOAD"[166]51)"*** CAUTION ***"
  210. 446 [153][166]243)"THIS ROUTINE WILL COLD START TO "
  211. 448 [153]"BASIC VIA SYS 64738:"
  212. 450 [153][166]54)"*   *   *LIST"
  213. 452 [153][166]85)"OPENDO YOU WISH TO PROCEED?    Y/N"
  214. 454 [161]M$:[139]M$[178]""[167]454
  215. 456 [141]198:[139]M$[178]"Y"[167][158]64738
  216. 458 [137]180
  217. 460 [144]
  218. 462 [143]*******FORMATING*******
  219. 464 [151]53280,2:[151]53281,15:[153]""
  220. 466 HA$[178]"FORMAT NEW DISK":[141]64
  221. 468 [153]"STOPENTER DISK NAME"
  222. 470 [153]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
  223. 472 [153]"(null)                (null)"
  224. 474 [153]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
  225. 476 [153]"ONON";:G[178]1:DN$[178]""
  226. 478 [161]G$:[139]G$[178]""[167]478
  227. 480 DN$[178]DN$[170]G$:G[178]G[170]1
  228. 482 [153]G$;:[139]G$[178][199](13)[167]488
  229. 484 [139]G[177]15[167]488
  230. 486 [137]478
  231. 488 [153]""[163]24)"ONONONID"
  232. 490 [153][163]23)"(null)TANTANRIGHT$":[153][163]23)"(null)  (null)":[153][163]23)"MID$TANTAN(null)";
  233. 492 [153]"ONCMDCMDCMD";
  234. 494 G$[178]"":ID$[178]"":[129]G[178]0[164]1:[161]G$:ID$[178]DI$[170]G$:[153]G$;:[130]
  235. 496 [129]G[178]0[164]1
  236. 498 [161]G$:[139]G$[178]""[176]G$[178][199](13)[167]498
  237. 500 ID$[178]ID$[170]G$:[153]G$;:[130]:[153]
  238. 502 [153]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
  239. 504 [153]"(null)    INSERT NEW DISK IN DRIVE!    (null)"
  240. 506 [153]"(null)    PRESS "[199](34)"*"[199](34)" WHEN READY(null)"
  241. 508 [153]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  242. 510 PRINT"  ** PRESS SPACEBAR TO ABORT ROUTINE **"
  243. 512 GETM$:IFM$<>" "ANDM$<>CHR$(42)THEN512
  244. 514 IFM$=" "THEN514
  245. 516 PRINTSPC(53)"[144]PLEASE WAIT"
  246. 518 OPEN15,8,15,"N0:"+DN$+","+ID$:CLOSE15
  247. 520 OPEN9,8,9,"0:--1984/85 YEAR--,S,W":CLOSE9
  248. 522 SAVE"LEDGER",8
  249. 524 OPEN3,8,3,"0:BAL,S,W"
  250. 526 PRINT#3,"00.00":CLOSE3
  251. 528 OPEN2,8,2,"0:ENC,S,W"
  252. 530 PRINT#2,"1":CLOSE2
  253. 532 GOTO180
  254. 534 REM****CANCEL LAST ENTERY****
  255. 536 PRINT"[147]"SPC(51)"*** CAUTION ***"
  256. 538 PRINTSPC(243)"THIS ROUTINE WILL ERASE THE LAST"
  257. 540 PRINT"ENTERY ON YOUR DISK AND WILL RESET      THE BALANCE TO WHAT IT";
  258. 542 PRINT" PRIOR TO         THE LAST ENTERY."
  259. 544 PRINTSPC(54)"*   *   *[155]"
  260. 546 PRINTSPC(85)"[159]DO YOU WISH TO PROCEED?    Y/N"
  261. 548 GETM$:IFM$=""THEN548
  262. 550 GOSUB198:IFM$="Y"THEN554
  263. 552 GOTO180
  264. 554 PRINTSPC(53)" PLEASE WAIT "
  265. 556 GOSUB148
  266. 558 EN=VAL(EN$)-2:EN$=STR$(EN)
  267. 560 IFEN<1THEN564
  268. 562 GOTO574
  269. 564 PRINT"[147]"SPC(203)"THERE IS NOT ENOUGH FILES TO USE"
  270. 566 PRINT"THIS ROUTINE. "
  271. 568 PRINTSPC(123)"PRESS SPACEBAR TO CONTINUE"
  272. 570 GETM$:IFM$=""THEN570
  273. 572 GOSUB198:GOTO180
  274. 574 HE$="EN#":HE$=HE$+EN$
  275. 576 OPEN4,8,4,"0:"+HE$+",S,R":FORI=0TO4:INPUT#4,BA$:NEXT:CLOSE4
  276. 578 GOSUB162
  277. 580 GOSUB170:HE$="EN#":HE$=HE$+EN$
  278. 582 OPEN15,8,15,"S0:"+HE$:CLOSE15
  279. 584 GOSUB198:GOTO180
  280. 1000 REM"            
  281. 1002 [143]"            DOUGLAS BRAUN
  282. 1003 REM"            REDCLIFF ALTA
  283. 1004 [143]"            OCT. 01  1984
  284. 1005 REM"           
  285. 1006 [143]"           
  286.